COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	.device XGP
C00004 ENDMK
C⊗;
.device XGP;
.page frame 53 high 85 wide
.area text lines 1 to 51;
.area footing line 53;
.portion main; place text;
.ODDLEFTBORDER←EVENLEFTBORDER←1000;
.
.at "\C"; ⊂ once center; ⊃;
.at "\R"; ⊂ once flush right; ⊃;
.at "\J"; ⊂ fill; adjust; compact; ⊃;
.at "\."; ⊂ nofill; ⊃;
.at "\@" filename ";";	⊂ require "filename" source;	⊃;
.
.macro defs(εmsg,εfontno,εfsg);	⊂
.at "msg" fontfile ";";	⊂ font fontno "fontfile"; ⊃;
.at "fsg";	⊂("∀"&"fontno")⊃;
.⊃;
.
.dig←1; poxno←"0123456789ABCDEF"; pubno←"G321456789ABCDEF";
.while(|dig≤16|,|msig←"\M"&poxno[dig];fno←pubno[dig];fsig←"\F"&poxno[dig];
.    defs(msig,fno,fsig); dig←dig+1;|);
.
.at pagemark ⊂ skip to column 1;⊃;
.at 8	⊂ if filling then break else "        "⊃;
.at "\" ⊂ nofill ⊃;
.
.fill; indent 0,0,4;
.turn on "α"; turn on "∀" for "%";

.every footing(,∀5{page!});
.require "news75[cur,jmc]" source;